home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
compuserve-file-archive
/
05 Programming
/
STRTHV64.BIN
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2019-04-13
|
600b
|
22 lines
70 REM ** STRING THING (VIC & C64) **
80 REM ** JIM BUTTERFIELD **
90 REM STRING MUST BE FIRST VARIABLE
100 A$="ABCDEFGHIJKLMNOPQ"
110 A$=A$+A$+A$+A$+A$
120 A$=A$+A$+A$
130 REM ABOVE SETS STRING FOR MAX (255)
200 DATA 160,2,177,45,153,137,0,200,192,6
210 DATA 208,246,162,1,32,198,255
220 DATA 32,228,255,201,13,240,15,164,142,145
230 DATA 140,200,132,142,196,139,240,4,165,144,240,234,76,204,255
250 FORJ=896TO937:READX:POKEJ,X:T=T+X:NEXTJ
260 IFT<>6120THENSTOP
400 OPEN1,8,2,"TOUGH DATA"
410 REM: NEXT SYS SAME AS 'INPUT#1,A$'
420 SYS896
425 REM: L=SIZE OF INPUT (COULD BE 0)
430 L=PEEK(142)
440 PRINT LEFT$(A$,L)
450 IF ST=0 GOTO 420
460 CLOSE 1